10 REM
11 REM AEHNLICH ?
12 REM BY ZEITGEIST/CIVI/WIL
13 REM
14 INPUT"1.WORT ";A$
15 INPUT"2.WORT ";B$
16 REM
17 L1=LEN(A$):L2=LEN(B$)
18 REM
19 FORG=1TOL1:S1=S1+ASC(A$):NEXT
20 FORG=1TOL2:S2=S2+ASC(B$):NEXT
21 REM
22 S1%=S1/100:S2%=S2/100
23 REM
24 IFS2>S1+L1*S1%ORS1<S1-L1*S1%THENEND
25 REM
26 PRINT"AEHNLICH !"